home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 41.zip
/
BS1 part 41
/
Abacus diskdrives IO.adf
/
CH4
/
program4.bas
< prev
next >
Wrap
BASIC Source File
|
1978-06-28
|
485b
|
23 lines
'Program 4:
DECLARE FUNCTION xOpen& LIBRARY
DECLARE FUNCTION Execute& LIBRARY
LIBRARY "dos.library"
NewCommand:
INPUT "1>";Command$
Reaction:
Command$=Command$+CHR$(0)
Display$="CON:0/0/640/200/CLI-Basic"+CHR$(0)
' PAL screens can use Display$="CON:0/0/640/256/CLI-Basic"+CHR$(0)'
connection&=xOpen&(SADD(Display$),1006)
extra&=Execute&(SADD(Command$),0,connection&)
FOR i=1 TO 20000:NEXT i
CALL xClose(connection&)
INPUT "more (y) ";w$
IF w$="y" THEN NewCommand
LIBRARY CLOSE
END